unit Corretor_CodEntidade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges, ExtCtrls, TFlatButtonUnit,dbtables;

type
  TfrmCorrigeEntidade = class(TForm)
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    BitBtn3: TFlatButton;
    Bevel1: TBevel;
    pb2: TGauge;
    pb3: TGauge;
    pb4: TGauge;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edEnt_New: TEdit;
    edEnt_Old: TEdit;
    Label1: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCorrigeEntidade: TfrmCorrigeEntidade;

implementation

uses clsEntidade, Biblio;

var
 Entidade: TEntidade;

{$R *.dfm}

procedure TfrmCorrigeEntidade.FormCreate(Sender: TObject);
begin
 Entidade:= TEntidade.Create;
end;

procedure TfrmCorrigeEntidade.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Entidade.Free;
end;

procedure TfrmCorrigeEntidade.BitBtn1Click(Sender: TObject);
var
 xNew,
 xOld : String;
 xGrava: Boolean;
begin
 xNew := StrZero(edEnt_New.Text,5);
 xOld := StrZero(edEnt_Old.Text,5);

 xGrava:= Entidade.Recuperar(xNew) = 1;

 if not xGrava then begin
  Entidade.Recuperar(xOld);
  Entidade.Gravar(xNew);
 end;

 //


end;

end.
